Attribute VB_Name = "botonesMenu"
Public Const VERDADERO = 1
Public Const FALSO = 0

Public Const ID_LOGO_CONSULTORA = 10
Public Const ID_LOGO_USER = 11

Public Const ID_VIEW_ADDITEM = 59390
Public Const ID_VIEW_STATUS_BAR = 59391
Public Const ID_VIEW_STATUS_BAR2 = 59392

Public Const ID_INDICATOR_CAPS = 59137
Public Const ID_INDICATOR_NUM = 59138
Public Const ID_INDICATOR_SCRL = 59139

Public Const ID_INDICATOR_LOGO = 59140
Public Const ID_INDICATOR_ICON = 59141
Public Const ID_INDICATOR_FECHA = 59149
Public Const ID_INDICATOR_HORA = 59143
Public Const ID_INDICATOR_TEXT = 59144

Public Const ID_FILE_NEW = 100
Public Const ID_FILE_OPEN = 101
Public Const ID_FILE_CLOSE = 102
Public Const ID_FILE_SAVE = 103
Public Const ID_FILE_EXIT = 104
Public Const ID_FILE_PRINT = 105
Public Const ID_HELP_ABOUT = 106
Public Const ID_FILE_PRINT_SETUP = 107
Public Const ID_PRESTADOR_MANAGER = 108

Public Const ID_EDIT_UNDO = 200
Public Const ID_EDIT_COPY = 201
Public Const ID_EDIT_PASTE = 202
Public Const ID_EDIT_CUT = 203


Public Const ID_UTIL_CALCULADORA = 300
Public Const ID_UTIL_NOTEPAD = 301
'Public Const ID_CHANGE_PASSWORD = 1
Public Const ID_PASSWORD = 302
Public Const ID_SALIR_SISTEMA = 303

Public Const ID_VIEW_TOOLBAR_STANDARD = 400
Public Const ID_VIEW_TOOLBAR_STANDARD2 = 401
Public Const ID_VIEW_TOOLBAR_THEMES = 402
Public Const ID_VIEW_STATUSBAR = 403
Public Const ID_VIEW_OPTIONS = 404


Public Const ID_THEME_CLIENTPANE = 500
Public Const ID_THEME_SHOWEXPANDBUTTON = 501

Public Const ID_USER_MANAGER = 600

Public Const ID_THEME_OFFICE2000_PLAIN = 100000
Public Const ID_THEME_OFFICEXP_PLAIN = 100001
Public Const ID_THEME_OFFICE2003_PLAIN = 100002
Public Const ID_THEME_NATIVE_PLAIN = 100003

'Public Const ID_FILE_MAURO = 200
'Public Const ID_FILE_MAURO1 = 900

'Botones
Public Const ACEPTAR_BUTTON = 1000
Public Const CANCELAR_BUTTON = 1001
Public Const PRESTADOR_ADD_BUTTON = 1002
Public Const PRESTADOR_EDIT_BUTTON = 1003
Public Const GUARDAR_BUTTON = 1004
Public Const USER_PASS_BUTTON = 1005
Public Const USER_ADD_BUTTON = 1006
Public Const USER_EDIT_BUTTON = 1007
Public Const SEARCH_BUTTON = 1008
Public Const UNDO_BUTTON = 1009
Public Const PERMISO_BUTTON = 1010






Public Sub setIconButton(button As PushButton, tipo As Long)
     
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\Ok.png", 1, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\Cancel.png", 2, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\prestador_add.png", 3, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\prestador_edit.png", 4, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\disk.png", 5, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\user_pass.png", 6, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\user_add.png", 7, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\user_edit.png", 8, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\search.png", 9, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\undo.png", 10, xtpImageNormal
     XtremeSuiteControls.Icons.LoadBitmap App.Path & "\images\png\user_key.png", 11, xtpImageNormal
     
            
     If tipo = ACEPTAR_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(1, 0)
     
     ElseIf tipo = CANCELAR_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(2, 0)
     
     ElseIf tipo = PRESTADOR_ADD_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(3, 0)
     
     ElseIf tipo = PRESTADOR_EDIT_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(4, 0)
     
     ElseIf tipo = GUARDAR_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(5, 0)
          
     ElseIf tipo = USER_PASS_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(6, 0)
        
     ElseIf tipo = USER_ADD_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(7, 0)
      
      ElseIf tipo = USER_EDIT_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(8, 0)
        
      ElseIf tipo = SEARCH_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(9, 0)
        
        ElseIf tipo = UNDO_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(10, 0)
        
        ElseIf tipo = PERMISO_BUTTON Then
        Set button.Icon = XtremeSuiteControls.Icons.GetImage(11, 0)
    
        
     End If

End Sub

